diff --git a/src/Diagrams/Solve.hs b/src/Diagrams/Solve.hs
index 189147ba..69b5f424 100644
--- a/src/Diagrams/Solve.hs
+++ b/src/Diagrams/Solve.hs
@@ -12,6 +12,8 @@ module Diagrams.Solve
        ( quadForm
        , cubForm
        , quartForm
+       , cubForm'
+       , quartForm'
        ) where
 
 import           Data.List     (maximumBy)