Makes NoDimId columns in extracted fact tables not nullable.

src/Ringo/Extractor.hs

@@ -31,7 +31,9 @@ extractFactTable fact = do
       columns = concatFor (factColumns fact) $ \col -> case col of
         DimTime cName             ->
           [ Column (timeUnitColumnName dimIdColName cName settingTimeUnit) "bigint" NotNull ]
-        NoDimId cName             -> [ fromJust . findColumn cName . tableColumns $ table] -- TODO should be not null
+        NoDimId cName             -> let
+            col' = fromJust . findColumn cName . tableColumns $ table
+          in [ col' { columnNullable = NotNull } ]
         FactCount _ cName         -> [ Column cName countColType NotNull ]
         FactSum scName cName      -> [ Column cName (sourceColumnType scName) NotNull ]
         FactAverage scName cName  ->