diff --git a/BootDirt.hs b/BootDirt.hs index 88053fe..813c1ab 100644 --- a/BootDirt.hs +++ b/BootDirt.hs @@ -1,9 +1,24 @@ -:set -fno-warn-orphans +:set -fno-warn-name-shadowing :set -XOverloadedStrings :set prompt "> " :set prompt-cont "| " -import Minipat.Dirt.Prelude qualified as P +import Data.Ratio ((%)) +import Minipat.Base +import Minipat.Dirt.Core qualified as C -st <- P.initSt P.defaultEnv +st <- C.initSt C.defaultEnv + +getCps = C.getCps st +getAhead = C.getAhead st +getPlaying = C.getPlaying st +getPat = C.getPat st +getCycle = C.getCycle st +getTempo = C.getTempo st + +setCps = C.setCps st +setPlaying = C.setPlaying st +setPat = C.setPat st +setCycle = C.setCycle st +setTempo = C.setTempo st diff --git a/minipat-dirt/minipat-dirt.cabal b/minipat-dirt/minipat-dirt.cabal index eba5281..5f78182 100644 --- a/minipat-dirt/minipat-dirt.cabal +++ b/minipat-dirt/minipat-dirt.cabal @@ -24,8 +24,8 @@ source-repository head library exposed-modules: + Minipat.Dirt.Core Minipat.Dirt.Osc - Minipat.Dirt.Prelude Minipat.Dirt.Resources other-modules: Paths_minipat_dirt diff --git a/minipat-dirt/src/Minipat/Dirt/Prelude.hs b/minipat-dirt/src/Minipat/Dirt/Core.hs similarity index 99% rename from minipat-dirt/src/Minipat/Dirt/Prelude.hs rename to minipat-dirt/src/Minipat/Dirt/Core.hs index f8107e7..ee1f93f 100644 --- a/minipat-dirt/src/Minipat/Dirt/Prelude.hs +++ b/minipat-dirt/src/Minipat/Dirt/Core.hs @@ -1,6 +1,6 @@ {-# LANGUAGE OverloadedStrings #-} -module Minipat.Dirt.Prelude where +module Minipat.Dirt.Core where import Control.Applicative (empty) import Control.Concurrent (forkFinally) @@ -27,7 +27,6 @@ import Nanotime ( PosixTime (..) , TimeDelta , TimeLike (..) - , showPosixTime , threadDelayDelta , timeDeltaFromFracSecs )