gluturtle 0.0.38 → 0.0.39

raw patch · 2 files changed

+2/−2 lines, 2 files

Files

gluturtle.cabal +1/−1
src/Graphics/UI/GLUT/Turtle/Move.hs +1/−1

gluturtle.cabal view

@@ -2,7 +2,7 @@ cabal-version:	>= 1.6  name:		gluturtle-version:	0.0.38+version:	0.0.39 stability:	alpha author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>

src/Graphics/UI/GLUT/Turtle/Move.hs view

@@ -120,7 +120,7 @@ drawTurtle :: Field -> TurtleState -> Double -> Position -> 	Maybe Position -> IO () drawTurtle f ts@TurtleState{fillcolor = fclr, pencolor = clr} dir pos-	| [] <- makeShape ts dir pos = error $ show ts+	| [] <- makeShape ts dir pos = const $ return () -- error $ show ts 	| otherwise = maybe 		(drawCharacter f fclr clr (makeShape ts dir pos) (pensize ts)) 		(drawCharacterAndLine f fclr clr (makeShape ts dir pos) (pensize ts) pos)