Cleanup compiler warnings

2024-10-22 10:48:44 +01:00
parent c0b1092fb6
commit 65f05b93f8
10 changed files with 72 additions and 161 deletions
@@ -1,10 +1,14 @@
-module Dodge.WdP2f where
+{-# OPTIONS -Wno-incomplete-uni-patterns #-}
+module Dodge.WdP2f 
+    ( doWdP2f
+    ) where

 import Control.Lens
 import Dodge.Data.World
 import Geometry.Data
 import Geometry.Vector

+-- # OPTIONS -Wno-incomplete-uni-patterns #-}
 doWdP2f :: WdP2f -> World -> (Point2, Float)
 doWdP2f x = case x of
    WdP2f0 -> const (0, 0)