etc

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
 

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

minipat-dirt/src/Minipat/Dirt/Prelude.hs → 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
   )