impl: fix machine error handling
[haskell/symantic-parser.git] / parsers / Parsers / Playground.hs
index 03dde7bbed91e79205e53b3e7d39567350bdf18d..84e930c09f323cfefe2f6d3f5a2bf31277351cf7 100644 (file)
@@ -3,7 +3,7 @@
 module Parsers.Playground where
 
 import Symantic.Parser
-import qualified Symantic.Parser.Haskell as H
+import qualified Symantic.Syntaxes.Classes as Prod
 
 boom :: CombApplicable repr => repr ()
 boom =
@@ -11,5 +11,5 @@ boom =
        let goo = (-- newRegister_ unit (\r1 ->
              let hoo = {-get r0 <~> get r1 *>-} goo *> hoo in hoo
             ) *> goo
-       in goo) *> pure H.unit
+       in goo) *> pure Prod.unit
   in foo *> foo