Add file

2022-04-26 08:57:46 +01:00
parent cbef0a37f6
commit 0a4a3b1249
2 changed files with 7 additions and 2 deletions
@@ -0,0 +1,5 @@
+module Dodge.ShortShow where
+import Geometry
+
+shortPoint2 :: Point2 -> String
+shortPoint2 (V2 x y) = "x" ++ show (round x::Int) ++ "y" ++ show (round y::Int)