Fixed the infinite loop

src/Ubc/Parse/Syntax/Struct.hs

@@ -7,7 +7,7 @@ module Ubc.Parse.Syntax.Struct
 where
 
 -- yay, explicit dependency on ghc
-import GHC.Generics (Generic)
+import GHC.Generics (Generic, Generically(..))
 
 import Control.Monad ((<$!>))
 
@@ -39,7 +39,7 @@ data StructBody = StructBody
         , functions :: [Function]
         }
         deriving stock (Generic, Show)
-        deriving (Semigroup, Monoid) via StructBody
+        deriving (Semigroup, Monoid) via Generically StructBody
 
 parse :: Monad m => ParsecT String u m Struct
 parse = do