warning cleanup 4

Author: minimapletinytools

src/Potato/Flow/Controller/Handler.hs

@@ -13,14 +13,12 @@ import           Potato.Flow.Math
 import           Potato.Flow.Owl
 import           Potato.Flow.Render
 import           Potato.Flow.OwlState
-import           Potato.Flow.OwlWorkspace
 import           Potato.Flow.Serialization.Snake
 import qualified Potato.Flow.Preview as Preview
 
 import qualified Potato.Data.Text.Zipper          as TZ
 
 import           Data.Default
-import qualified Data.IntMap                      as IM
 import qualified Data.Sequence                    as Seq
 import qualified Data.Text                        as T
 import qualified Text.Show

src/Potato/Flow/Controller/Manipulator/Line.hs

@@ -23,7 +23,6 @@ import           Potato.Flow.Methods.LineDrawer
 import           Potato.Flow.Owl
 import           Potato.Flow.OwlItem
 import           Potato.Flow.OwlState
-import           Potato.Flow.OwlWorkspace
 import           Potato.Flow.Serialization.Snake
 import Potato.Flow.Methods.LlamaWorks
 import Potato.Flow.Preview
@@ -457,6 +456,7 @@ instance PotatoHandler AutoLineEndPointHandler where
 
 
 -- TODO finish
+{-
 adjustLineLabelPositionsAfterModifyingOrAddingMidpoint ::
   (HasOwlTree a)
   => a
@@ -484,7 +484,7 @@ adjustLineLabelPositionsAfterModifyingOrAddingMidpoint ot old new mempindex = r
   -- adjust distance by the change in ratio
 
   r = undefined
-
+-}
 
 
 

src/Potato/Flow/Controller/Manipulator/Pan.hs

@@ -38,7 +38,6 @@ instance PotatoHandler PanHandler where
           MouseDragState_Up -> case _panHandler_maybePrevHandler of
             Nothing -> Just $ SomePotatoHandler (def :: PanHandler)
             Just x  -> Just x
-          _ -> error "not posible"
         , _potatoHandlerOutput_action = HOA_Pan (delta - _panHandler_panDelta)
         --, _potatoHandlerOutput_pan = trace (show x <> " delta " <> show delta <> " pan " <> show _panHandler_panDelta <> " from " <> show _mouseDrag_from <> " to " <> show _mouseDrag_to) $ Just (delta - _panHandler_panDelta)
       } where delta = _mouseDrag_to - _mouseDrag_from

src/Potato/Flow/Controller/Manipulator/TextArea.hs

@@ -16,7 +16,6 @@ import           Potato.Flow.Controller.Manipulator.Common
 import           Potato.Flow.Llama
 import           Potato.Flow.Math
 import           Potato.Flow.Owl
-import           Potato.Flow.OwlWorkspace
 import           Potato.Flow.Serialization.Snake
 import           Potato.Flow.Types
 import Potato.Flow.Preview

src/Potato/Flow/Methods/LlamaWorks.hs

@@ -7,19 +7,15 @@ module Potato.Flow.Methods.LlamaWorks where
 
 import           Relude
 
-import           Potato.Flow.Math
 import           Potato.Flow.Owl
 import Potato.Flow.OwlItem
-import Potato.Flow.Attachments
-import Potato.Flow.OwlWorkspace
 import Potato.Flow.OwlState
 import Potato.Flow.Llama
 import           Potato.Flow.Serialization.Snake
 import           Potato.Flow.Types
 
 import           Control.Exception (assert)
 
-import qualified Data.Text         as T
 import qualified Data.IntMap as IM
 import qualified Data.IntSet as IS
 import qualified Data.Sequence as Seq

src/Potato/Flow/OwlWorkspace.hs

@@ -215,7 +215,7 @@ clearLocalPreview (ws, changes) = (ws { _owlPFWorkspace_localPreview = Nothing }
 maybeCommitLocalPreviewToLlamaStackAndClear :: OwlPFWorkspace -> OwlPFWorkspace
 maybeCommitLocalPreviewToLlamaStackAndClear ws = case _owlPFWorkspace_localPreview ws of
   Nothing -> ws
-  Just (shep, shift, undollama) -> r_1 where
+  Just (_, _, undollama) -> r_1 where
     newstack = moveLlamaStackDone undollama (_owlPFWorkspace_llamaStack ws)
     r_1 = ws { 
         _owlPFWorkspace_llamaStack = newstack 

src/Potato/Flow/Render.hs

@@ -44,7 +44,6 @@ import           Potato.Flow.OwlItem
 import Potato.Flow.Owl
 import           Potato.Flow.Controller.Types
 import           Potato.Flow.Controller.OwlLayers
-import           Potato.Flow.Methods.LineTypes
 
 
 import qualified Data.IntMap             as IM
@@ -101,11 +100,6 @@ instance OwlRenderSet RenderContext where
   sortForRendering RenderContext {..} = sortForRendering (_renderContext_owlTree, _renderContext_layerMetaMap)
 
 
-
-emptyChar :: PChar
-emptyChar = ' '
-
-
 -- TODO for selection rendering you want to make it V.Vector (Maybe PChar) or maybe you can just use a map?
 {-
 class IsRenderedCanvasRegion rc where