diff --git a/lib/Options/GEODE.hs b/lib/GEODE/Options.hs
similarity index 92%
rename from lib/Options/GEODE.hs
rename to lib/GEODE/Options.hs
index 210e87b376f9f76973680d35be071573d3f7a297..2f347f91cf887100e5765dfedf5de10ce3169259 100644
--- a/lib/Options/GEODE.hs
+++ b/lib/GEODE/Options.hs
@@ -1,4 +1,5 @@
-module Options.GEODE
+{-# LANGUAGE NamedFieldPuns #-}
+module GEODE.Options
   ( Output(..)
   , output ) where
 
@@ -38,3 +39,5 @@ output = catMaybes . toList <$> outputFlags
   where
     toList (OutputFlags {metadata, textRoot, xmlRoot}) =
       [ Metadata <$ metadata, TextRoot <$> textRoot, XMLRoot <$> xmlRoot ]
+
+--atLeastOne :: [Output] -> IO [Output]