Move Blockly to Blockly.Internal

marlowe-playground-client/src/Blockly.purs → marlowe-playground-client/src/Blockly/Internal.purs

@@ -1,4 +1,4 @@
-module Blockly where
+module Blockly.Internal where
 
 import Prelude
 import Blockly.Types (Block, Blockly, BlocklyState, Workspace)

marlowe-playground-client/src/Halogen/ActusBlockly.purs

@@ -1,8 +1,8 @@
 module Halogen.ActusBlockly where
 
 import Prelude hiding (div)
-import Blockly (BlockDefinition, ElementId(..), XML, getBlockById)
-import Blockly as Blockly
+import Blockly.Internal (BlockDefinition, ElementId(..), XML, getBlockById)
+import Blockly.Internal as Blockly
 import Blockly.Generator (Generator, blockToCode)
 import Blockly.Types as BT
 import Control.Monad.Except (ExceptT(..), except, runExceptT)

marlowe-playground-client/src/Halogen/Blockly.purs

@@ -1,8 +1,8 @@
 module Halogen.Blockly where
 
 import Prelude hiding (div)
-import Blockly (BlockDefinition, ElementId(..), XML, getBlockById)
-import Blockly as Blockly
+import Blockly.Internal (BlockDefinition, ElementId(..), XML, getBlockById)
+import Blockly.Internal as Blockly
 import Blockly.Generator (Generator, newBlock, blockToCode)
 import Blockly.Types as BT
 import Control.Monad.Except (ExceptT(..), except, runExceptT)

marlowe-playground-client/src/Halogen/BlocklyCommons.purs

@@ -3,7 +3,7 @@
 module Halogen.BlocklyCommons where
 
 import Prelude hiding (div)
-import Blockly (addChangeListener, removeChangeListener)
+import Blockly.Internal (addChangeListener, removeChangeListener)
 import Blockly.Events (fromEvent, newParentId, oldParentId)
 import Blockly.Types (BlocklyEvent, Workspace)
 import Blockly.Types as BT

marlowe-playground-client/src/Marlowe/ActusBlockly.purs

@@ -1,7 +1,7 @@
 module Marlowe.ActusBlockly where
 
 import Prelude
-import Blockly (AlignDirection(..), Arg(..), BlockDefinition(..), block, blockType, category, colour, defaultBlockDefinition, name, style, x, xml, y)
+import Blockly.Internal (AlignDirection(..), Arg(..), BlockDefinition(..), block, blockType, category, colour, defaultBlockDefinition, name, style, x, xml, y)
 import Blockly.Generator (Generator, getFieldValue, getType, insertGeneratorFunction, mkGenerator, statementToCode)
 import Blockly.Types (Block, BlocklyState)
 import Control.Alternative ((<|>))

marlowe-playground-client/src/Marlowe/Blockly.purs

@@ -1,7 +1,7 @@
 module Marlowe.Blockly where
 
 import Prelude
-import Blockly (AlignDirection(..), Arg(..), BlockDefinition(..), block, blockType, category, colour, defaultBlockDefinition, getBlockById, initializeWorkspace, name, render, style, x, xml, y)
+import Blockly.Internal (AlignDirection(..), Arg(..), BlockDefinition(..), block, blockType, category, colour, defaultBlockDefinition, getBlockById, initializeWorkspace, name, render, style, x, xml, y)
 import Blockly.Generator (Connection, Generator, Input, NewBlockFunction, clearWorkspace, connect, connectToOutput, connectToPrevious, fieldName, fieldRow, getBlockInputConnectedTo, getFieldValue, getInputWithName, getType, inputList, inputName, inputType, insertGeneratorFunction, mkGenerator, nextBlock, nextConnection, previousConnection, setFieldText, statementToCode)
 import Blockly.Types (Block, BlocklyState, Workspace)
 import Control.Alternative ((<|>))

marlowe-playground-client/src/Marlowe/Gists.purs

@@ -7,7 +7,7 @@ module Marlowe.Gists
   ) where
 
 import Prelude
-import Blockly (XML)
+import Blockly.Internal (XML)
 import Data.Array (catMaybes)
 import Data.Lens (has, view)
 import Data.Lens.Index (ix)